home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / GUI / Advanced / menu.au3 < prev    next >
Text File  |  2006-06-20  |  1KB  |  45 lines
  1. #include <GUIConstants.au3>
  2.  
  3. GUICreate("GUI menu",300,200)
  4.  
  5. $filemenu = GuiCtrlCreateMenu ("File")
  6. $fileitem = GuiCtrlCreateMenuitem ("Open...",$filemenu)
  7. $recentfilesmenu = GuiCtrlCreateMenu ("Recent Files",$filemenu)
  8. $separator1 = GuiCtrlCreateMenuitem ("",$filemenu)
  9. $exititem = GuiCtrlCreateMenuitem ("Exit",$filemenu)
  10. $helpmenu = GuiCtrlCreateMenu ("?")
  11. $aboutitem = GuiCtrlCreateMenuitem ("About",$helpmenu)
  12.  
  13. $okbutton = GuiCtrlCreateButton ("OK",50,130,70,20)
  14.  
  15. $cancelbutton = GuiCtrlCreateButton ("Cancel",180,130,70,20)
  16.  
  17. GuiSetState()
  18.  
  19. While 1
  20.     $msg = GUIGetMsg()
  21.     
  22.  
  23.     Select
  24.         Case $msg = $GUI_EVENT_CLOSE Or $msg = $cancelbutton
  25.             ExitLoop
  26.         
  27.         Case $msg = $fileitem
  28.             $file = FileOpenDialog("Choose file...",@TempDir,"All (*.*)")
  29.             If @error <> 1 Then GuiCtrlCreateMenuItem ($file,$recentfilesmenu)
  30.  
  31.         Case $msg = $exititem
  32.             ExitLoop
  33.         
  34.         Case $msg = $okbutton
  35.             MsgBox(0, "Click","You clicked OK!")
  36.  
  37.         Case $msg = $aboutitem
  38.             Msgbox(0,"About","GUI Menu Test")
  39.     EndSelect
  40. WEnd
  41.  
  42. GUIDelete()
  43.  
  44. Exit
  45.